Function arrClear(arr)
    ReDim arr(0)
    arrClear = arr
End Function